home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / os2 / cenvi2.arj / ISDAY_2.CMD < prev    next >
OS/2 REXX Batch file  |  1993-06-14  |  744b  |  14 lines

  1. @echo OFF
  2. REM *************************************************************************
  3. REM *** IsDay_2.cmd - This is like IsDay_1.cmd (Set ErrorLevel 1 if it is ***
  4. REM ***               requested day of the week, and ErrorLeve 0 if not), ***
  5. REM ***               but accomplishes this in only one quick call to     ***
  6. REM ***               CENVI.  Unlike IsDay_1.cmd, this does no error      ***
  7. REM ***               checking and provides no help.                      ***
  8. REM *************************************************************************
  9.  
  10. cenvi  day="%1"  day[3]=0    return( strstr(strupr(ctime(time())),strupr(day)) ? 1 : 0 )
  11.  
  12. if ErrorLevel 1 ECHO Yes, today is %1
  13. if not ErrorLevel 1 ECHO No, today is not %1
  14.